Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols

<WebService(Namespace:="http://tempuri.org/")> _
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Public Class Service
     Inherits System.Web.Services.WebService

    <WebMethod()> _
    Public Function CercarPersona(ByVal Peticio As PeticioCerca) As RespostaCerca
        Dim resp As RespostaCerca = New RespostaCerca
        resp.Nom = Peticio.Cognom
        resp.Cognom = Peticio.Nom
        resp.Nif = Peticio.Nif
        resp.DataNaixement = Now
        Return resp
    End Function

    <WebMethod()> _
    Public Function CercarPersones(ByVal Peticio As PeticioCerca) As RespostaCerca()
        Dim respt(3) As RespostaCerca
        respt(0) = New RespostaCerca
        respt(1) = New RespostaCerca
        respt(2) = New RespostaCerca
        respt(3) = New RespostaCerca



        For Each resp As RespostaCerca In respt
            'Dim resp As RespostaCerca = New RespostaCerca
            resp.Nom = Peticio.Cognom
            resp.Cognom = Peticio.Nom
            resp.Nif = Peticio.Nif
            resp.DataNaixement = Now
        Next

        Return respt
    End Function


End Class
